10 REM**************************************************************
20 REM**************************************************************
30 REM*********                                                                                        
40 REM*********        IEC - BUS                                   
50 REM*********        ADRESSIERUNGS- UND EINSTELL-    
60 REM*********        UEBUNGEN                                   
70 REM*********        FILTER UEBUNG a)                             
80 REM*********                              GST 11/88  ************
90 REM**************************************************************
100 REM*************************************************************
110 REM
120 REM
130 REM
200 REM *** PROGRAMMBEGINN ***
210 GOSUB 400: REM INITIALISIERUNGSAUFRUF
220 GOSUB 1000: REM EINSTELLUNG AFGU
230 GOSUB 1200: REM URE EINSTELLEN UND MESSWERT HOLEN
240 REM
250 REM
260 END
400 REM *** INITIALISIERUNG VON PCA UND SCHNITTSTELLE ***
410 PRINT "ESC[2J": CLEAR
420 IEC TIME 1000,DCL ,IFC ,TERM 13: HOLD 1E3: RETURN
430 REM
440 REM
450 REM
1000 REM ********* EINZELSCHRITTE ********
1010 REM
1020 REM                          ** AFGU EINSTELLEN **
1030 REM
1040 IEC LAD 12: REM              ADRESSIERUNG MIT "MIKROBEFEHL
1050 Spannung$="LEVEL(PP) 2"
1060 IEC $OUT Spannung$; REM      AUSGABE EINES EINZELSTRINGS (SPNG. )
1070 Frequenz$="FREQUENCY 450E3"
1080 IEC $OUT Frequenz$: REM      AUSGABE EINES EINZELSTRINGS (FREQU.)
1090 REM
1170 IEC UNL : RETURN : REM       ENTADRESSIERUNG
1180 REM
1190 REM                          :REM ** URE EINSTELLEN **
1200 REM
1210 IEC LAD 7
1220 Gf $= "LO, IM 1 , RAO , W3, F2, X4"
1230 IEC $OUT Gf$
1240 REM
1250 REM                           :REM ** MESSWERT TRIGGERN **
1260 REM
1270 IEC GET
1280 IEC TAD 7
1290 IEC $IN Mw$
1300 REM
1310 REM                            :REM ** MESSWERT AUSGEBEN **
1320 REM
1330 PRINT : PRINT : PRINT :PRINT " DER GEMESSENE WERT IST"
1340 PRINT Mw$;: PRINT " V"
1350 REM
1360 REM
1370 REM
1399 RETURN